home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Languguage OS 2
/
Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO
/
a_utils
/
perl
/
prlbkxmp.lha
/
ch5
/
shuffle
< prev
next >
Wrap
Text File
|
1991-01-08
|
216b
|
5 lines
local(_@_T_E_M_P_A_R_R_A_Y);
push(_@_T_E_M_P_A_R_R_A_Y, splice(_@_A_R_R_A_Y, rand(_@_A_R_R_A_Y), 1))
while _@_A_R_R_A_Y;
_@_A_R_R_A_Y = _@_T_E_M_P_A_R_R_A_Y;